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DECUS Program Library Write-up 
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ASCCNT 

1527 

ASCLP 

1511 

ASK2 

0422 

ASKS 

0443 

BEGIN 

0242 

BINLN 

1152 

CKI 

0656 

CKJ 

0673 

CRLF 

1404 

CVTBIN 

1025 

CVTEXT 

1043 

CVTNEG 

1070 

CVTSUB 

1062 

CVTTBL 

1260 

EOLINE 1112 

ERRWD 0336 

GET 

1600 

GETGO 

1605 

JNADDR 

1654 

INBCNT 

1652 

inbuf 

2200 

INCNT 

1502 

INHOLD 

1504 

ININFO 

1251 

INREAD 

1442 

INX1 

1453 

IONAME 

0330 

IOPN 

0326 

LNACC 

0412 

LNCK 

0465 

LNCNT 

0510 

LNGET 

0403 

LNTBL 

2600 

LSTSIG 

1151 

MSGADR 

1545 

MSGCNT 

1544 

MSG 1 

0020 

MSG2 

0032 

MSG5 

0124 

MSG6 

0141 

NAMEPK 

0263 

NEW 

2033 

NEWLP 

2011 

NEWNOT 

2027 

NOKILL 

1244 

NOMORE 

1200 

OPRHLD 

1434 
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/RESEQ WILL RESEQUENCE THE LINE NUMBERS (AND REFERENCES) 
/IN A BASIC PROGRAM, H, WOLVINGTON — DOD COMPUTER 
/INSTITUTE# OCTOBER 1970, 

/ 

/PHASE I 

/ A, OBTAIN PROGRAM NAME & OPEN FILE 
/ B, BUILD TBL OF LINE NUMBERS 
/ C, OBTAIN STARTING LINE # AND INCREMENT 
/PHASE II 

/ D. 'REWIND' INPUT FILE AND OPEN »R$Q001« AS OUTPUT 
/ E, READ LINES FROM INPUT, SUBSTITUTE LNS, & OUTPUT 
/ F, DELETE INPUT FROM DISK AND RENAME RSQ001 AS INPUT 


*0000 


0000 

5401 


JMP I 

0001 

0242 


BEGIN 

0002 

0000 

BUFPTR, 

*0020 

0 

0020 

7771 

MSG 1 # 

-7 

0021 

021 


,♦0 

0022 

0240 


TEXT 

0023 

0311 

Cl 


0024 

0316 

CN 


0025 

0320 

CP 


0026 

0325 

CU 


0027 

0324 

CT 


0030 

0272 

B; 


0031 

0000 

• 


0032 

7762 

MSG2, 

-16 

0033 

0033 


,♦0 

0034 

0306 


TEXT 

0035 

0311 

Cl 


0036 

0314 

CL 


0037 

0305 

CE 


0040 

0240 

B 


0041 

0316 

CN 


0042 

0317 

CO 


0043 

0324 

CT 


0044 

0240 

B 


0045 

0306 

CF 


0046 

0317 

CO 


0047 

0325 

CU 


0050 

0316 

CN 


0051 

0304 

CD 


0052 

0000 

• 


0053 

7757 

MSG3# 

-21 

0054 

0054 


,*0 

0055 

0323 


TEXT 

0056 

0324 

CT 


0057 

0301 

CA 


0060 

0322 

CR 


0061 

0324 

CT 



/BUFFER POINTER USED 
/E (BOTH PAGES) 


IN SECT 


/'INPUTl' MSG BLOCK 


/'FILE NOT FOUND' MSG BLOCK 



/'STARTING LINE * *" MSG BLOCK 
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0062 

0311 

C'l 



0063 

0316 

CN 



0064 

0307 

CG 



0063 

0240 

B 



0066 

0314 

CL 



0067 

0311 

CJ 



0070 

0316 

CN 



007 1 

0305 

CE 



0072 

0240 

B 



0073 

0243 

B# 



0074 

0240 

B 



0075 

0272 

B! 



0076 

0000 

• 



0077 

7756 

MSG4, 

-22 

/'RANGE IS 1 TO 2046' MSG BLOCK 

0100 

0100 


,♦0 


0101 

0322 


TEXT ,CR 


0102 

0301 

CA 



0103 

0316 

CN 



0104 

0307 

CG 



0105 

0305 

CE 



0106 

0240 

B 



0107 

0311 

Cl 



0110 

0323 

cs 



0111 

0240 

B 



0112 

0261 

B1 



0113 

0240 

B 



0114 

0324 

CT 



0115 

0317 

CO 



0116 

0240 

B 



0117 

0262 

B2 



0120 

0260 

B0 



0121 

0264 

B4 



0122 

0266 

B6 



0123 

0000 

• 



0124 

7766 

MSGS, 

-12 

/'INCREMENT*' MSG BLOCK 

0125 

0125 


.♦0 


0126 

0311 


TEXT ,CI 


0127 

0316 

CN 



0130 

0303 

CC 



0131 

0322 

CR 



0132 

0305 

CE 



0133 

0315 

CM 



0134 

0305 

CE 



0135 

0316 

CN 



0136 

0324 

CT 



0137 

0272 

B: 



0140 

0000 

• 



0141 

7761 

MSG6, 

-17 

/'DISK I/O ERROR ' MSG BLOCK 

0142 

0142 


.♦0 


0143 

0304 


TEXT ,C0 


0144 

0311 

Cl 



0145 

0323 

CS 



0146 

0313 

CK 




*•0 0 0 4 
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0147 

0240 

B 


0150 

0311 

Cl 


0151 

0257 

B/ 


0152 

0317 

CO 


0153 

0240 

B 


0154 

0305 

CE 


0155 

0322 

CR 


0156 

0322 

CR 


0157 

0317 

CO 


0160 

0322 

CR 


0161 

0240 

B 


0162 

0000 

» 


0163 

7761 

MSG 7, 

-17 

0164 

0164 


.♦0 

0165 

0314 


TEXT 

0166 

0311 

Cl 


0167 

0316 

CN 


0170 

0305 

CE 
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0240 
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0240 
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CE 
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0201 
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CL 


0202 
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0203 
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CW 


0204 

0000 

• 


0205 

7746 

MS68, 

-32 

0206 

0206 
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CE 
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B 


0233 

0322 

CR 


0234 

0323 

CS 



00135 


/•LINE # OVERFLOW! MSG BLOCK 


/•PESEQUENCED FILE IS RSO001’ MSG 
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0235 

0321 

CQ 



0236 

0260 

B0 



0237 

0260 

B0 



0240 

0261 

B1 



0241 

0000 

• 





/SECTION A, 


0242 

4777 

BEGIN, 

JMS 

CRLF 
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ASK I, 
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(MSG1) 
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4775 
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PAD, 
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AODR 
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ISZ 

COUNT 
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5256 


JMP 

PAD 

0263 
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CLA 

STL 
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1367 


TAD 
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0265 

3010 


DCA 

Z 10 

0266 

1366 


TAD 

(IONAME-1) 

0267 

3011 


DCA 

Z 11 

0270 

1365 


TAD 

(-3) 

0271 

3333 


DCA 

COUNT 

0272 

4306 

PACK, 

JMS 

EXTRCT 

0273 

7006 


RTL 


0274 

7006 


RTL 


0275 

7006 


RTL 


0276 

3335 


DCA 

TEMP 

0277 

4306 


JMS 

EXTRCT 

0300 

0335 


AND 

TEMP 

0301 

7040 


CMA 


0302 

3411 


DCA 

I z 11 

0303 

2333 


ISZ 

COUNT 

0304 

5272 


JMP 

PACK 

0305 

5314 


JMP 

OPENX 

0306 

0000 

EXTRCT, 

0 


0307 

1410 


TAD 

I Z 10 

0310 

1364 


TAD 

(40) 

0311 

0363 


AND 

(77) 

0312 

040 


CMA 


0313 

5706 


JMP 

I EXTRCT 

0314 

4777 

OPENX, 

JMS 

CRLF 

0315 

1362 


TAD 

(IOPN) 

0316 

6601 


OPEN 

0317 

7450 


SNA 


0320 

5761 


JMP 

SECTB 

0321 

7200 


CLA 



0006 


/ASK FOR PROGRAM NAME 

/READ PROGRAM NAME 

/CONVERT TO INTERNAL FILE NAME 
/COMPARE CHAR COUNT TO 6 

/JUMP IF SIX CHARACTER NAME 
/# OF BLANKS TO PAD (NEG) 
/COMPUTE ADDR FOR 1ST BLANK 

/SAVE IN POINTER 
/BLANK TO ACC 
/MOVE TO PAD NAME 
/BUMP POINTER 
/BUMP COUNT 
/LOOP UNLESS ALL DONE 
/SET UP PACK LOOP (ACC»0, L B 1) 

/INXED 10 POINTS TO ASCII BLOCK 

/INDEX 11 POINTS TO IONAME BLOCK 

/COUNT CONTROLS LOOP 3 TIMES 
/EXTRACT 1ST CHARACTER 
/SHIFT LEFT 6 


/EXTRACT 2ND CHARACTER 
/'OR' IN 1ST CHARACTER 

/DEPOSIT IN IONAME BLOCK 

/LOOP UNLESS 3 WORDS DEPOSITED 

/SUBROUTINE FOR PICKING UP ASCII 
/CHARACTER TO ACC 
/COMPLEMENT BIT 6 
/CLEAR LEFT 6 BITS 
/COMPLEMENT FOR »OR» 

/RETURN 

/♦♦OPEN INPUT ON FILE 0^ 

/OPEN BLOCK ADDR TO ACC 


/JUMP IF SUCCESSFUL OPEN 


5 






0322 

1360 


TAD 

(M5G2) 

0323 

4775 


JMS 

msgout 

0324 

4777 


JMS 

crlf 

0325 

5243 


JMP 

ASK 1 

0326 

0000 

IOPN, 

0 


0327 

0000 


0 


0330 

0000 

IONAME t 

0 


0331 

0000 


0 


0332 

0000 


0 


0333 

0000 

COUNT, 

0 


0334 

0000 

ADDR, 

0 


0335 

0000 

TEMP, 

0 


0336 

0000 

errwd, 

0 


0360 

0032 




0361 

0400 




0362 

0326 




0363 

0077 




0364 

0040 




0365 

7775 




0366 

0327 




0367 

3377 




0370 

0240 




0371 

1502 




0372 

7772 




0373 

1435 




0374 

3400 




0375 

1530 




0376 

0020 




0377 

1404 
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/SECTION B, 


0400 

7200 

SECTS» 

CLA 


0401 

1377 


TAD 

(LNTBL) 

0402 

3306 


DC A 

LNPTR 

0403 

4776 

LNGET, 

JMS 

GET 

0404 

3706 


DCA 

I LNPTR 

0405 

1706 


TAD 

I LNPTR 

0406 

1375 


TAD 

(-3777) 

0407 

7450 


SNA 


040 

5216 


JMP ' 

TBLIN 

0411 

2306 


ISZ 

LNPTR 

0412 

4776 

LNACC f 

JMS 

GET 

0413 

7440 


SZA 


0414 

5212 


JMP 

LNACC 

0415 

5203 


JMP 

LNGET 

0416 

1306 

tblin, 

TAD 

LNPTR 

0417 

7041 


CIA 


0420 

1377 


TAD 

(LNTBL) 

0421 

3307 


DCA 

LINES 



/section c. 


0422 

1374 

ASK2, 

TAD 

(MSGS) 

0423 

4773 


JMS 

MSGOUT 

0424 

1372 


TAD 

(BUFFER*!) 

0425 

3010 


DCA 

Z 10 


0007 


/TYPE ’COMMAND ERROR’ 


/TRY AGAIN 

/OPEN IOT BLOCK 
/INTERNAL FILE NUMBER 
/CURRENT USER NUMBER 
/ 

/PACKED FILE NAME (3 WORDS) 

/ 

/BUFFER POINTER FQR PACK, ETC 
/SAVE AREA FOR OPEN IOT ACC 


/SET LNPTR TO POINT TO LNTBL 

/GET A DISK WORD TO ACC 
/STORE LN IN TBL 
/COMPARE TO 3777 


/JUMP IF MATCH (EOF) 

/BUMP POINTER 
/DISK WORD TO ACC 

/JUMP IF NOT ZERO 
/NEXT WORD IS LN 
/CALCULATE NUMBER OF LINES 


/LINES » # OF LN 

/ASK FOR STARTING LINE # 

/SET X10 TO POINT TO BUFFER*! 
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0426 

1371 


TAD 

(BUFFER) 

0427 

4770 


JMS 

INPUT 

0430 

4767 


JMS 

ASC3IN 

0431 

3304 


DC A 

START 

0432 

4766 


JMS 

CRLF 

0433 

1304 


TAD 

START 

0434 

7540 


SZA 

SMA 

0435 

5243 


JMP 

ASK3 

0436 

7200 


CLA 


0437 

1365 


TAD 

(MSG4) 

0440 

4773 


JMS 

MSGQUT 

0441 

4766 


JMS 

CRLF 

0442 

5222 


JMP 

ASK2 

0443 

7200 

ASK3, 

CLA 


0444 

1364 


TAD 

(MSGS) 

0445 

4773 


JMS 

MSGOUT 

0446 

1372 


TAD 

(BUFFER-1) 

0447 

3010 


DCA 

Z 10 

0450 

1371 


TAD 

(BUFFER) 

0451 

4770 


JMS 

INPUT 

0452 

4767 


JMS 

ASCBIN 

0453 

3305 


DCA 

INCR 

0454 

4766 


JMS 

CRLF 

0455 

1305 


TAD 

INCR 

0456 

7540 


SZA 

SMA 

0457 

5265 


JMP 

LNCK 

0460 

7200 


CLA 


0461 

1365 


TAD 

(MSG4) 

0462 

4773 


JMS 

MSGOUT 

0463 

4766 


JMS 

CRLF 

0464 

543 


JMP - 

\SKZ 

0465 

7200 

LNCK, 

CLA 


0466 

1307 


TAD 

LINES 

0467 

3310 


DCA 

LNCNT 

0470 

1304 


TAD 

START 

0471 

1305 

LNCKLP, 

, TAD 

INCR 

0472 

7540 


SZA 

SMA 

0473 

5301 


JMP 

LNCK 1 

0474 

7200 


CLA 


0475 

1363 


TAD 

(MSG7) 

0476 

4773 


JMS 

MSGOUT 

0477 

4766 


JMS 

CRLF 

0500 

5222 


JMP 

ASK2 

0501 

2310 

LNCK1, 

ISZ 

LNCNT 

0502 

5271 


JMP 

LNCKLP 

0503 

5762 


JMP 

SECTD 

0504 

0000 

START, 

0 


0505 

0000 

INCR, 

0 


0506 

0000 

LNPTR, 

0 


0507 

0000 

LINES, 

0 


0510 

0000 

LNCNT, 

0 


0562 

0600 




0563 

0163 




0564 

0124 




0565 

0077 




0566 

1404 





0010 


/READ STARTING I.N 
/CONVERT TO BINARY 
/SAVE IT 

/CHECK FOR + 

/SKIP IF NOT ,GT, « 
/JUMP IF OK 

/TYPE ERROR MSG 


/TR AGAIN 

/ASK FOR INCREMENT 

/SET X10 TO POINT TO BUFFER*! 


/READ INCREMENT 
/CONVERT TO BINARY 
/SAVE IT 


/SKIP IF NOT ,GT, % 
/JUMP IF OK 

/TYPE ERROR MSG 


/TRY AGAIN 

/♦★CHECK UN'S FOP RANGE 
/COPY COUNT OF LINES 

/STARTING LN TO ACC 
/ADD INCREMENT 

/JUMP IF DETWEEN 1 AND 2046 
/PUT OUT ERROR MSG 


/GET NEW START AND INCR 
/BUMP COUNTER 

/JUMP IN LOOP UNLESS ALL DONE 
/PHASE II PLEASE, 

/STARTING LN 
/INCREMENT 

/POINTER TO LNTBL ENTRIES 
/NUMBER OF LINES IN BASIC PGM 
/CONTROL WORD FOR LOOP 
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0567 

1505 


0570 

1435 


0571 

3400 


0572 

3377 


0573 

1530 


0574 

0053 


0575 

4001 


0576 

1600 


0577 

2600 

PAGE 

/PHASE II 
/SECTION D, 

0600 

7200 

SECTD, CLA 

0601 

3777 

OCA INBLK 

0602 

3776 

DCA INBCNT 

0603 

3775 

OCA INADDR 

0604 

1374 

TAD CTPNAME) 

0605 

6610 

CRF 

0606 

7440 

SZA 

0607 

5773 

JMP iokill 

0610 

1372 

TAD (TPOPN) 

0611 

6601 

OPEN 

0612 

7440 

SZA 

0613 

5773 

JMP IOKILL 
/SECTION E, 

0614 

7200 

MOVE, CLA 

0615 

1371 

TAD (BUFFER) 

0616 

3002 

DCA BUFPTR 

0617 

4770 

JMS GET 

0620 

3402 

DCA I BUFPTR 

0621 

1402 

TAD I BUFPTR 

0622 

1367 

TAD (-3777) 

0623 

7450 

SNA 

0624 

5766 

JMP NOMORE 

0625 

2002 

ISZ BUFPTR 

0626 

4770 

NEXTIN, JMS GET 

0627 

7450 

SNA 

0630 

5246 

JMP LASTIN 

0631 

3320 

DCA LNHLD 

0632 

1320 

TAD LNHLD 

0633 

7012 

RTR 

0634 

7012 

RTR 

0635 

7012 

RTR 

0636 

0365 

AND (77) 

0637 

3402 

DCA I BUFPTR 

0640 

2002 

ISZ BUFPTR 

0641 

1320 

TAD LNHLD 

0642 

0365 

AND (77) 

0643 

3402 

DCA I BUFPTR 

0644 

2002 

ISZ BUFPTR 

0645 

5226 

JMP NEXTIN 

0646 

302 

LASTIN, DCA I BUFPTR 

0647 

1771 

TAD BUFFER 

0650 

4764 

JMS NEWLN 

0651 

3771 

DCA BUFFER 

0652 

1002 

TAD BUFPTR 





/0 TO ACC 

/'REWIND' INPUT FILE 


/CREATE 'RSQ001' 


/JUMP IF UNSUCCESSFUL 
/OPEN AS INTERNAL FILE 1 


/JUMP ON ERROR 

/♦♦MOVE NEW LINE TO BUFFER 
/SET BUFPTR TO ADDRESS BUFFER 

/LINE NUMBER TO ACC 
/STORE AS 1ST WORD IN BUFFER 
/CHECK FOR 3777 


/JUMP ON MATCH 

/UPDATE POINTER 

/GET NEXT WORD IN LINE 

/JUMP ON END OF LINE 
/SAVE IT 
/SHIFT RIGHT 6 


/CLEAR LEFT 6 BITS 
/STORE IN BUFFER 
/BUMP POINTER 
/WORD TO ACC 
/CLEAR LEFT CHAR 
/STORE THIS 2ND CHAR 
/BUMP POINTER 
/LOOP FOR NEXT WORD 
/MOVE ZERO MARKER TO BUFFER 
/LINE NUMBER TO ACC 
/CONVERT TO NEW LINE NUMBER 
/REPLACE LINE NUMBER 
/SAVE ADDR OF 0 IN ZWPTR 
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0653 

3763 


OCA 

ZWPTR 

0654 

1371 


TAD 

(BUFFER) 

0655 

3002 


DC A 

BUFPTR 

0656 

4307 

CKI, 

JMS 

SIGCHR 

0657 

7450 


SNA 


0660 

5762 


JMP 

EOLINE 

0661 

1361 


TAD 

(-11) 

0662 

7440 


SZA 


0663 

5273 


JMP 

CKJ 

0664 

4307 


JMS 

SIGCHR 

0665 

7450 


SNA 


0666 

5762 


JMP 

EOLINE 

0667 

1360 


TAD 

(-06) 

0670 

7440 


SZA 


0671 

5762 


JMP 

EOLINE 

0672 

5757 


JMP 

SUBLN 

0673 

7200 

CKJ, 

CLA 


0674 

1402 


TAD 

I BUFPTR 

0675 

1356 


TAD 

(-07) 

0676 

7440 


SZA 


0677 

5762 


JMP 

EOLINE 

0700 

4307 


JMS 

SIGCHR 

0701 

7450 


SNA 


0702 

5762 


JMP 

EOLINE 

0703 

1355 


TAD 

(-17) 

0704 

7440 


SZA 


0705 

5762 


JMP 

EOLINE 

0706 

5757 


JMP 

SUBLN 

0707 

0000 

SIGCHR , 

0 


0710 

2002 


ISZ 

BUFPTR 

0711 

1402 


TAD 

I BUFPTR 

0712 

1354 


TAD 

(-40) 

0713 

7450 


SNA 


0714 

5310 


JMP 

SIGCHR+1 

0715 

7200 


CLA 


0716 

1402 


TAD 

I BUFPTR 

0717 

5707 


JMP 

I SIGCHR 

0720 

0000 

Lnhld, 

0 


0721 

0001 

TPOPN, 

1 


0722 

0000 


0 


0723 

6263 

TPNAME, 

TEXT ,23 

0724 

6120 

IP 



0725 

2021 

PQ 



0726 

0000 

t 



0754 

7740 




0755 

7761 




0756 

7771 




0757 

1000 




0760 

7772 




0761 

7767 




0762 

1112 




0763 

1150 





0012 


/RESET BUFPTR TO START OF LINE 

/GET NEXT SIGNIFICANT CHARACTER 
/COMPARE TO ZEROES 
/JUMP IF 0 (END-OF-LINE) 
/COMPARE TO 'I' 

/JUMP IF NOT »I» 

/GET NEXT CHARACTER 

/JUMP IF 0 

/COMPARE TO *F» (IF STMT) 

/JUMP IP NOT F 
/PROCESS * IF * STATEMENT 

/1ST CHARACTER TO ACC 
/COMPARE TO »G' 

/JUMP IF NOT 'G' 

/GET 2ND CHARACTER 

/JUMP IF NONE THERE 
/COMPARE TO 'O' 

/JUMP IF NOT 'GO* 

/»IF' , 'GOTO',QR 'GOSUB' STMT 
/GO CHANGE LINE # REFERENCE 
/♦★RETURNS NEXT NON BLANK CHAR 
/BUMP POINTER 
/NEXT CHAR TO ACC 
/COMPARE TO BLANK 

/JUMP IF BLANK 

/CHARACTER TO ACC 
/BYE 

/HOLD AREA FOR LN'S 
/OPEN IOT BLOCK FOR 'RSQ001' 
/INTERNAL FILE NUMBER 
/CURRENT USER NUMBER 
/PACKED FILE NAME (3 WORDS) 
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0/64 2000 

0765 0077 

0766 1200 

0767 4001 

0770 1600 

0771 3400 

0772 0721 

0773 1641 

0774 0723 

0775 1654 

0776 1652 

0777 1650 

PAGE 

/THE FOLLOWING CODE 
/REFERENCE WITHIN A 


1000 

1350 

SUBLN, 

TAD 

ZWPTR 

1001 

3002 


DC A 

BUFPTR 

1002 

7240 

BACKUP, 

STA 


1003 

1002 


TAD 

BUFPTR 

100 

3002 


DCA BUFPTR 

1005 

1402 


TAD 

I BUFPTR 

1006 

1377 


TAD 

(»40) 

1007 

7450 


SNA 


1010 

5202 


JMP 

BACKUP 

1011 

7200 


CLA 


1012 

1402 


TAD 

I BUFPTR 

1013 

1376 


TAD 

("60) 

1014 

7510 


SPA 


1015 

5221 


JMP 

MARKPT 

1016 

1375 


TAD 

(-12) 

1017 

7510 


SPA 


1020 

5202 


JMP 

BACKUP 

1021 

7200 

MARKPT, 

CLA 


1022 

1002 


TAD 

BUFPTR 

1023 

3351 


DCA 

LSTSIG 

1024 

3352 


DCA 

BINLN 

1025 

4774 

CVTBIN, 

JMS 

SIGCHR 

1026 

7450 


SNA 


1027 

5243 


JMP 

CVTEXT 

1030 

7300 


CLA 

CLL 

1031 

1352 


TAD 

BINLN 

1032 

7006 


RTL 


1033 

1352 


TAD 

BINLN 

1034 

7004 


RAL 


1035 

3352 


OCA 

BINLN 

1036 

1402 


TAD 

I BUFPTR 

1037 

0373 


AND 

(17) 

1040 

1352 


TAD 

BINLN 

1041 

3352 


DCA 

BINLN 

1042 

5225 


JMP 

CVTBIN 

1043 

1352 

CVTEXT, 

TAD 

BINLN 

1044 

4772 


JMS 

NEWLN 

1045 

3352 


DCA 

BINLN 

1046 

1351 


TAD 

LSTSIG 


0013 


FINDS AND SUBSTITUTE A LN 
LINE, 

/SET BUFPTR TO 0 AODR 

/MOVE POINTER BACK TO 1ST NON- 
/ZERO, NON BLANK CHAP 
/BUFPTR ,EQ, BUFPTR"! 


/CHARACTER TO ACC 
/COMPARE TO BLANK 

/JUMP IF BLANK 

/CHARACTER TO ACC 
/COMPARE TO ZERO 

/JUMP IF LESS THAN 0 


/JUMP IF ,LE, 9 (NUMERIC) 

/CHAR IS NON-NUMERIC 
/SAVE BUFPTR IN LSTSIG 

/CLEAR BINLN 

/FIND NEXT (RIGHT) SIGNIFICANT 

/JUMP IF ZERO WORD (END OF LN) 
/MULTIPLY BINLN BY 10 


/NEW CHAR TO ACC 
/CONVERT TO BINARY 
/ADD TO BINLN 

/LOOK FOR NEXT CHAR 
/BINARY LINE NUMBER TO ACC 
/CONVERT TO NEW LINE NUMB 

/RESTORE BUFPTR 
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1047 

3002 


DC A 

BUFPTR 

1050 

2002 


ISZ 

BUFPTR 

1051 

1371 


TAD 

(40) 

1052 

3402 


DCA 

I BUFPTR 

1053 

2002 


ISZ 

BUFPTR 

1054 

7100 


CLL 


1055 

1370 


TAD 

(CVTTBL) 

1056 

3355 


DCA 

CVTX 

1057 

1367 


TAD 

(•4) 

1060 

3354 


DCA 

CVTCNT 

1061 

3353 

CVTCLR, 

DCA 

BASE 10 

1062 

1352 

CVTSUB, 

TAD 

BINLN 

1063 

1755 


TAD 

I CVTX 

1064 

7510 


SPA 


1065 

5270 


JMP 

CVTNEG 

1066 

2353 


ISZ 

BASE10 

1067 

5263 


JMP 

CVTSUB+1 

1070 

7041 

CVTNEG, 

CIA 


1071 

1755 


TAD 

I CVTX 

1072 

7041 


CIA 


1073 

3352 


DCA 

BINLN 

1074 

1353 


TAD 

BASE10 

1075 

7440 


SZA 


1076 

5301 


JMP 

CVTOUT 

1077 

7420 


SNL 


1100 

5305 


JMP 

CVNXT 

1101 

1366 

CVTQUT, 

TAD 

(60) 

1102 

3402 


DCA 

I BUFPTR 

1103 

7120 


STL 


1104 

2002 


ISZ 

BUFPTR 

1 105 

2355 

CVTNXT, 

ISZ 

CVTX 

1106 

2354 


ISZ 

CVTCNT 

1107 

5261 


JMP 

cvtclr 

1110 

7200 


cla 


1111 

3402 


DCA 

I BUFPTR 

1112 

7200 

EQLINE, 

CLA 


1113 

1365 


TAD 

(BUFFER) 

1114 

3002 


DCA 

BUFPTR 

1115 

1402 


TAD 

I BUFPTR 

1116 

4764 


JMS 

PUT 

1117 

2002 


ISZ 

BUFPTR 

1120 

1402 

qutln, 

TAD 

I BUFPTR 

1121 

7450 


SNA 


1122 

5346 


JMP 

OUTEXT 

1123 

7006 


RTL 


1124 

7006 


RTL 


1125 

7006 


RTL 


1126 

0363 


AND 

(7700) 

1127 

7040 


CMA 


1130 

3356 


DCA 

outhld 

1131 

2002 


ISZ 

BUFPTR 

1132 

1402 


TAD 

I BUFPTR 

1133 

7440 


SZA 








/move a blank to the buffer 


/SET BUFPTR FOR UN CONVERSION 
/CONVERT BINLN TO DECIMAL AND MV 
/CLEAR LINK (LEADING 0 SWITCH) 
/SET POINTER TO CVT CONSTANTS 

/SET LOOP CNTRL 

/CLEAR BASE 10 ACCUMULATOR 
/BINARY ft TO ACC 
/SUBTRACT CONSTANT 

/JUMP IF ft LESS THAN CONSTANT 
/UMP DECIMAL COUNTER 

/RESTORE ACC TO LAST ♦ VALUE 


/SAVE IN BINLN 
/COMPARE FOR LEADING ZERO 

/JUMP IF NOT ZERO 

/JUMP IF LEADING (L<*0) 

/CHANGE TO INTERNAL CODE 
/STORE IN BUFFER 
/SET LINK TO MARK 0 NOT LEAO 
/BUMP POINTER 

/INCREMENT CONSTANT POINTER 
/CHECK COUNT OF LOOP 
/DO NEXT DIGIT UNLESS FINISHED 
/CONVERSION COMPLETE 

/STORE 0 AS END OF LINE 

/END LINE —WRITE TO OUTPUT 
/SET BUFPTR TO BUFFER 

/SEND OFF LN 

/BUFFER POINTER TO 1ST TEXT 
/1 ST WORD TO ACC 

/JUMP IF ZERO WORD 

/SHIFT LEFT 6 

/CLEAR 6 RIGHT BITS 

/complement 
/SAVE IT 
/SET 2ND WORD 
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1134 

5337 


J Mr’ 

0UT20K 

1135 

1371 


TAD 

(40) * 

1136 

7410 


SKP 


1137 

200 

QUT2QK , 

ISZ BUFPTR 

1140 

0362 


AND 

(77) 

1141 

7040 


CMA 


1142 

0356 


AND 

OUTHLD 

1143 

7040 


CMA 


1144 

4764 


JMS 

PUT 

1145 

5320 


JMP 

outln 

1146 

4764 

OUTEXT, 

JMS 

PUT 

1147 

5761 


JMP 

MOVE 

1150 

0000 

ZWPTR, 

0 


1151 

0000 

LSTSIG, 

0 


1152 

0000 

binln, 

0 


1153 

0000 

BASE10, 

0 


1154 

0000 

CVTCNT, 

0 


1155 

0000 

CVTX, 

0 


1156 

0000 

OUTHLO, 

0 


1161 

0614 




1162 

0077 




1163 

7700 




1164 

1656 




1165 

340 




1166 

0060 




1167 

7774 




1170 

1260 




1171 

0040 




1172 

2000 




1173 

0017 




1174 

0707 




1175 

7766 




1176 

7720 




1177 

7740 

PAGE 



1200 

1402 

NOMORE, 

TAD 

I BUFPTR 

1201 

4777 


JMS 

PUT 

1202 

4777 


JMS 

PUT 



/SECTION F, 


1203 

1776 


TAD 

PTCNT 

1204 

1375 


TAD 

(200) 

1205 

7450 


SNA 


1206 

5215 


JMP 

EMPTY 

1207 

7200 


CLA 


1210 

1374 


TAD 

(QUTBUF+ 

1211 

3773 


DCA 

PTPTR 

1212 

7240 


STA 


1213 

3776 


DQA 

PTCNT 

1214 

4777 


JMS 

PUT 

1215 

1372 

EMPTY, 

TAD 

(ININFO) 

1216 

6613 


FINF 

1217 

7200 


CLA 


1220 

1256 


TAD 

ININF0+5 

1221 

0371 


AND 

(7637) 

1222 

1370 


TAD 

(0040) 






/JUMP IF NOT ZERO 
/INSERT BLANK IN STRING 
/SKIP BUMP INSTRUCTION 

/CLEAR 6 LEFT BITS 

/COMPLEMENT 

/OR WITH 1ST WORD 

/SEND TO OUTPUT FILE 
/NEXT PAIR 
/SEND ZERO WORD 
/GO DO NEXT LINE 
/POINTER TO ZERO MARKER 
/POINTER TO LAST SIZ CHAR IN LINE 
/BINARY LN REFERENCE 
/DECIMAL VALUE DURING CVT 
/CVT LOOP COUNTER 
/CVT LOOP COUNTER 
/TEMP AREA DURING OUTPUT PACKING 


/ALL INPUT LINES PROCFSSED 
/LAST LN IS 3777 
/SEND IT TO OUTPUT 
/SEND ZERO TO OUTPUT 

/COMPARE WORD COUNT IN OUTBUF TO 
/«128 (BUFFER EMPTY) 

/JUMP IF EMPTY 
/DUMP OUTBUF ON DISK 
) 


/DETERMINE STATUS OF THE 
/ INPUT FILE 

/COPY PROTECT CODE TO RSO001 
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1223 

6604 


PROT 

1224 

7200 


CLA 

1225 

3767 


DCA EXTND 

1226 

1257 


TAD ININF0+6 

1227 

3766 


DCA EXTND+1 

1230 

1367 


TAD (EXTND) 

1231 

6612 


RED 

1232 

7440 


SZA 

1233 

5244 


JMP NOKILL 

1234 

7201 


CLA IAC 

1235 

3765 


DCA IONAME-1 

1236 

1365 


TAD (IONAME-1) 

1237 

6600 


REN 

120 

7200 

CLOSE, 

CLA 

1241 

1364 


TAD (6000) 

1242 

6602 


CLOS 

1243 

7402 


hlt 

1244 

7200 

nokill# 

CLA 

1245 

1363 


TAD (MSG8) 

1246 

4762 


JMS MSGOUT 

1247 

4761 


JMS CRLF 

1250 

5240 


JMP CLOSE 

1251 

0000 

ININFO, 

0 

1252 

0000 


0 

1253 

0000 


0 

1254 

0000 


0 

1255 

0000 


0 

1256 

0000 


0 

1257 

0000 


0 




DECIMAL 

1260 

6030 

CVTTB, 

-1000 

1261 

7634 


-100 

1262 

7766 


-1 0 

1263 

7777 


-1 




OCTAL 

1361 

1404 



1362 

1530 



1363 

0205 



1364 

6000 



1365 

0327 



1366 

1733 



1367 

1732 



1370 

0040 



1371 

7637 



1372 

1251 



1373 

1727 



1374 

2377 



1375 

020 



1376 

1726 



1377 

1656 




/MOVE « SGMTS TO REDUCE BLOCK 


/ERASE INPUT PILE 


/JUMP IF NOT POSSIBLE TO ERASE 
/RENAME RSG001 AS INPUT 


/CLOSE INPUT AND OUTPUT FILES 


/END OF PROCESSING 

/PUT OUT RSQ001 RESULT MSG 


n WORD FILE INFO BLOCK 
/FILE 0 ON CURRENT ACCOUNT 
/3 WORD FILE NAME 


/PROTECT CODE 

/NUMBER OF SEGMENTS IN THE FILE 
/CONVERSION CONSTANTS 


PAGE 

/********************************** 
/*IQCS SYSTEM AND UTILITY ROUTINES* 
/********************************** 


0016 


13 





'/PUfNl THE ASCII CHARACTER IN THE ACC ANU CLEAN IT 


1400 

0000 

PRINT, 

0 



1401 

6046 


TLS 



1402 

7200 


CLA 



1403 

5600 


JMP I PRINT 





/CRIF 

GENERATES A CARRIAGE RETURN AND A LINE FEED 

1404 

0000 

CRLF, 

0 



1405 

7200 


CLA 



1406 

1377 


TAD (215) 

/CR TO ACC 

1407 

4200 


JMS PRINT 



1410 

1376 


TAD (212) 


/LF TO ACC 

1411 

4200 


JMS PRINT 



1412 

5604 


JMP I CRLF 


/BYE 



/OPRINT PRINTS THE CONTENTS OF ACC (IN OCTAL) 

1413 

0000 

OPRINT 

» 0 



1414 

7004 


RAL 



1415 

3234 


DCA OPRHLD 


/SAVE ACC CONTENTS 

1416 

1375 


TAD (-4) 


/SET UP LOOP 

1417 

3233 


DCA 0PR4 



1420 

1234 

OPRLP, 

TAD OPRHLD 


/PICK UP CURRENT WORD 

1421 

7006 


RTL 


/ROTATE LEFT 3 

1422 

7004 


RAL 



1423 

3234 


DCA OPRHLD 


/SAVE IT 

1424 

1234 


TAD OPRHLD 



1425 

0374 


AND (7) 


/CLEAR ALL BUT LOW ORDER 3 BITS 

1426 

1373 


TAD (260) 


/ADD ASCII '0' 

1427 

4200 


JMS PRINT 


/PRINT IT 

1430 

2233 


ISZ 0PR4 


/BUMP COUNTER AND SKIP IF DONE 

1431 

5220 


JMP OPRLP 



1432 

5613 


JMP I OPRINT 


/BYE 

1433 

0000 

0PR4, 

0 


/»4 WILL BE HERE 

1434 

0000 

OPRHLD 

, 0 





/THIS 

UBROUTINE ACCEPTS 

A STRING OF CHARACTERS FROM THE 



/TTY ANO PLACES THEM 

IN 

CORE, BACKSPACING MAY BE DONE 



/WITH 

RUBOUT AND RETURN 

ENDS INPUT, ON CALL, ACC SHOULD 



/POINT 

TO CORE AREA, 

ON 

RETURN, ACC«COUNT OF CORRECT 



/CHARACTERS TRANSMITTED 

, THE RETURN CHARACTER IS NOT 



/MOVED 

TO CALLER'S AREA 

, BUT OTHER CHARACTERS IN IT 


• 

/MAY BE DISTURBED BY 

THE BACKSPACE PROCESS, 

1435 

0000 

INPUT, 

0 



1436 

3303 


DCA INPTR 


/BUFFER ADDR TO INPTR 

1437 

3302 


DCA INCNT 


CLEAR COUNT OF CHARACTERS 

1440 

1372 


TAD (0204) 


/MASK FOR BREAK ON RETURN OR RUB 

1441 

6400 


KSB 



1442 

6036 

INREAD 

, KRB 


/READ NEXT CHARACTER 

1443 

3304 


DCA INHOLO 


/SAVE IN INHOLD 

1444 

1304 


TAD INHOLO 


/COMPARE FOR RETURN 

1445 

7041 


CIA 



1446 

1377 


TAD (215) 



1447 

7440 


SZA 



1450 

5253 


JMP INX 1 


/JUMP IF NOT RETURN 

1451 

1302 


TAD INCNT 


/COUNT TO ACC 

1452 

5635 


JMP I INPUT 


/BYE 


0017 
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1453 

7200 

I NX 1, 

CLA 


/COMPARE FOR RUBOUT 

1454 

1304 


TAD 

INHOLD 


1455 

7041 


CIA 



1456 

1371 


TAD 

(377) 


1457 

7440 


SZA 



1460 

5274 


JMP 

INX2 

/JUMP IF NOT RUBOUT 

1461 

1370 


TAD 

(334) 

/ECHO 0 

1462 

4200 


JMS 

PRINT 


1463 

1302 


TAD 

INCNT 

/CHARACTER COUNT TO ACC 

1464 

7450 


SNA 


/IGNORE RUBOUT IF ZERO COUNT 

1465 

5242 


JMP 

INREAD 


1466 

1367 


TAD 

(-1) 

/SUBTRACT 1 FROM WDCNT AND INPTR 

1467 

3302 


DCA 

INCNT 


1470 

1303 


TAD 

INPTR 


1471 

1367 


TAD 

(-1) 


1472 

3303 


DCA 

INPTR 


1473 

5242 


JMP 

INREAD 

/NEXT CHARACTER 

1474 

7200 

INX2, 

CLA 


/STORE CHARACTER IN CALLER'S AREA 

1475 

1304 


TAD 

INHOLD 


1476 

3703 


DCA 

I INPTR 


1477 

2303 


ISZ 

INPTR 

/BUMP INPTR 

1500 

2302 


ISZ 

INCNT 

/BUMP CHARACTER COUNT 

1501 

5242 


JMP 

INREAD 

/NEXT CHARACTER 

1502 

0000 

INCNT, 

0 


/CHARACTER COUNT 

1503 

0000 

INPTR, 

0 


/POINTER TO NEXT STORAGE ADDR 

1504 

0000 

INHOLD, 

0 


/HOLD ARE FOP CURRENT CHAR 


/THIS SUBROUTINE CONVERTS AN ASCII STRING TO BINARY, 
/AUTO INDEX 10 SHOULD » STRING*!, ACC SHOULD * THE 




/LENGTH 

OF 

THE STRING, 

ON RETURN, ACC * BINARY EQUIVALENT, 

1505 

0000 

ASCBIN, 

0 



1506 

7041 


CIA 



1507 

3327 


DCA 

ASCCNT 

/STORE COUNT 

1510 

3326 


DCA 

ASCWRK 

/CLEAR WORKAREA 

1511 

1326 

ASCLP, 

TAD 

ASCWRK 

/WORKAREA TO ACC 

1512 

7106 


CLL 

RTL 

/MULTIPLY BY 10 

1513 

1326 


TAD 

ASCWRK 


1514 

7004 


RAL 



1515 

3326 


DCA 

ASCWRK 


1516 

1410 


TAD 

I Z 10 

/NEXT DIGIT TO ACC 

1517 

0366 


AND 

(17) 

/CONVERT TO BINARY 

1520 

1326 


TAD 

ASCWRK 

/ADD TO WORKAREA 

1521 

3326 


DCA 

ASCWRK 


1522 

2327 


ISZ 

ASCCNT 

/BUMP COUNTER 

1523 

5311 


JMP 

ASCLP 

/LOOP UNLESS ALL PROCESSED 

1524 

1326 


TAD 

ASCWRK 

/RESULTS TO ACC 

1525 

5705 


JMP 

I ASCBIN 

/BYE 

1526 

0000 

ASCWRK, 

0 



1527 

0000 

ASCCNT, 

0 




/THIS SUBROUTINE TYPES MESSAGES, IT DOES NOT ALTER THE 
/CALLING MESSAGE BLOCK, ON CALL, ACC-ADDR OF TWO WORD 
/BLOCK CONTAINING 
/ -CHAR COUNT 

/ ADDR-1 OF 1ST WORD OF TEXT 

— 0020 
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/AL’CsG) ON RETURN 

1530 

0000 

MSGOUT, 0 


1531 

3343 

DCA 

MSGWRK 

1532 

1743 

TAD 

I MSGWRK 

1533 

3344 

DCA 

MSGCNT 

1534 

2343 

ISZ 

MSGWRK 

1535 

1743 

TAD 

I MSGWRK 

1536 

3345 

OCA 

MSGADR 

1537 

1365 

TAD 

(MSGCNT) 

1540 

6040 

SAS 


1541 

5337 

JMP 

, »2 

1542 

5730 

JMP 

I MSGOUT 

1543 

0300 

MSGWRK t 0 


1544 

0000 

MSGCNT, 0 


1545 

0000 

MSGADR, 0 


1565 

1544 



1566 

0017 



1567 

7777 



1570 

0334 



1571 

0377 



1572 

0204 



1573 

0260 



1574 

0307 



1575 

7774 



1576 

0212 



1577 

0215 




PAGE 

/GET OBTAINS THE NEXT 
/HANDLES ALL INTERNAL 


/STORE BLOCK ADDR 
/COPY CHARACTER COUNT 

/COPY ADDR 

/SEND THE MSG 
/BYE 


WORD FROM THE INPUT FILE AND 
BUFFERING, THE WORD IS RETURN IN 


1600 

0000 

/THE ACC, 
GET , 0 


1601 

7300 

cla 

CLL 

1602 

1252 

TAD 

INBCNT 

1603 

7450 

SNA 


1604 

5213 

JMP 

GETIO 

1605 

2253 

GETGO, ISZ 

INBPTR 

1606 

7200 

CLA 


1607 

1653 

TAD 

I INBPTR 

161 

2252 

ISZ 

INBCNT 

1611 

7000 

NOP 


1612 

5600 

JMP 

I GET 

1613 

4233 

GETIO, JMS 

GETINT 

1614 

1377 

TAD 

CINBLK) 

1615 

6603 

RFILE 

1616 

7440 

SZA 


1617 

5241 

JMP 

iokill 

1620 

1255 

TAD 

INERR 

1621 

7440 

SZA 


1622 

5241 

JMP 

iokill 

1623 

4233 

JMS 

GETINT 

1624 

1254 

TAD 

INADDR 

1625 

1376 

TAD 

(200) 

1626 

3254 

DCA 

INAODR 

1627 

7004 

RAL 


1630 

1250 

TAD 

INBLK 

1631 

3250 

DCA 

INBLK 






/JMP IF BUFFER EMPTY 
/BUMP POINTER 
/OUTPUT WORD TO ACC 

/BUMP WORD COUNT 

/BYE 

/INITIALIZE POINTERS 
/READ A PAGE 
/JUMP ON 10 ERROR 


/JUMP ON 10 ERROR 
/RESET POINTERS 
/ADD 128 TO DISK ADDR 


/LINK TO ACC 

/ADD TO HIGH ORDER DISK ADDR 
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1632 

5205 

JMP 

GETGO 

1633 

0000 

GETINT, 0 


1634 

1375 

TAD 

(-200) 

1635 

3252 

DCA 

INBCNT 

1636 

1374 

TAD 

(INBUF-1) 

1637 

3253 

DCA 

INBPTR 

1640 

5633 

JMP 

I GETINT 

1641 

3255 

I OK ILL, DCA 

INERR 

1642 

1373 

TAD 

(MSG6) 

1643 

4772 

JMS 

MSGOUT 

1644 

1255 

TAD 

INERR 

1645 

4771 

JMS 

QPRINT 

1646 

4770 

JMS 

CRLF 

1647 

7402 

HLT 


1650 

0000 

inblk, 0 


1651 

0000 

0 


1652 

0000 

INBCNT, 0 


1653 

0000 

INBPTR, 0 


1654 

0000 

inaddr, 0 


1655 

0000 

INERR, 0 



/INITIALIZE SUBROUTINE 
/WDCNT ? -128 

/SET BUFFER ADOR 


/IO ERROR—PUT MSG AND HALT 


/PRINT OCTAL ERROR COOE 


/RFILE IOT BLOCK 
/HIGH ORDER DISK AODR 
/FILE « (0) 

/WORD COUNT 
/BUFFER ADDR 
/HIGH ORDER ADDR 
/ERROR INDICATOR 


/PUT TRANSFERS WORDS TO THE OUTPUT FILE AND HANDLES ALL 
/INTERNAL BUFFERING, THE WORD IN THE ACC IS SENT TO THE 
/DISK AND THE ACC IS CLEARED, 


1656 

0000 

PUT, 

0 


1657 

2327 


ISZ 

PTPTR 

1660 

3727 


DCA 

I PTPTR 

1661 

2326 


ISZ 

PTCNT 

1662 

5656 


JMP 

I PUT 

1663 

4304 


JMS 

PUTINT 

1664 

1367 

PUTGO, 

TAD 

(PTBLK) 

1665 

6605 


WFILE 

1666 

7440 


SZA 


1667 

5241 


JMP 

IOKILL 

1670 

1331 


TAD 

PTERR 

1671 

7440 


SZA 


1672 

5312 


JMP 

PUTERR 

1673 

4304 


JMS 

PUTINT 

1674 

7100 


CLL 


1675 

1330 


TAD 

PTADDR 

1676 

1376 


TAD 

(200) 

1677 

3330 


DCA PTADDR 

1700 

7004 


RAL 


1701 

1324 


TAD 

PTBLK 

1702 

3324 


DCA 

PTBLK 

1703 

5656 


JMP 

I PUT 

1704 

0000 

PUTINT, 

0 


1705 

1375 


TAD 

(-200) 

1706 

3326 


DCA 

PTCNT 

1707 

1366 


TAD 

(OUTBUF- 

1710 

3327 


DCA 

PTPTR 

1711 

5704 


JMP 

I PUTINT 

1712 

1365 

PUTERR, 

TAD 

(-2) 

1713 

7450 


SNA 



--0022 





/BUMP POINTER FOR DEPOSIT 
/DEPOSIT WORD IN DISK BUFFER 
/BUMP COUNT, SKIP ON BUFFER FULL 
/BYE 

/INITIALIZE IOT BLOCK 
/WRITE THE BUFFER PAGE 


/JUMP ON IO ERROR 


/JUMP TO FIND FAIL CAUSE 
/INITIALIZE POINTERS AGAIN 

/ADD 128 TO DISK ADDR 


/LINK TO ACC 

/ADD TO HIGH ORDER DISK ADDR 
/BYE 

/INITIALIZE SUBROUTINE 
/WORD COUNT * -128 

) /SET BUFFER ADDR 

/END SUBR 

/IO ERROR — CK FILE SHORT 
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1714 

631/ * 

* * 

JMP PUTEXT 

1715 

1364 


TAD (2) 

116 

5241 


JMP IOKILL 

1717 

1363 

PUTEXT, 

TAD (EXTND) 

1720 

6611 


EXT 

1721 

7440 


SZA 

1722 

5241 


JMP IOKILL 

1723 

5264 


JMP PUTGO 

1724 

0000 

PTBLK, 

0 

1725 

0001 


1 

1726 

7600 

PTCNT, 

•>200 

1727 

2377 

PTPTR t 

OUTBUF-1 

1730 

0000 

PTADDR, 

0 

1731 

0000 

pterr. 

0 

1732 

0001 

EXTND# 

1 

1733 

0001 


1 

1763 

1732 



1764 

0002 



1765 

7776 



1766 

2377 



1767 

1724 



1770 

1404 



1771 

1413 



1772 

1530 



1773 

0141 



1774 

2177 



1775 

7600 



1776 

0200 



1777 

1650 




/JUMF IP FILE TOO SHUNT ' 
/RESTORE ERROR CODE 
/GO PUT MSG & ABORT 
/EXTEND THE FILE BY 1 SGMT 


/JUMP ON 10 ERROR 

/WFILE IOT BLOCK 
/HIGH ORDER DISK ADOR 

/file « 

/WORD COUNT 
/BUFFER ADDR 
/LOW ORDER DISK ADOR 
/ERROR INDICATOR 
/2 WORD EXTEND BLOCK 


PAGE 

/NEWLN COMPUTES THE NEW LINE NUMBER GIVEN THE OLD ONE, 
/ON CALL# ACC»OLD«f ON RETURN, ACCsNEW#, IF THE OLD 
/NUMBER IS UNDEFINED, IT IS NOT CHANGED, 


2000 

0000 

NEWLN, 

0 


2001 

7041 


CIA 


2002 

3234 


DC A 

OLD 

2003 

1777 


TAD 

START 

2004 

3233 


DCA 

NEW 

2005 

1776 


TAD 

LINES 

2006 

3235 


DCA 

NEWCNT 

2007 

1375 


TAD 

(LNTBL**!) 

2010 

3010 


DCA 

Z 10 

2011 

1234 

NEWLP, 

TAD 

OLD 

2012 

1410 


TAD 

I Z 10 

2013 

7440 


SZA 


2014 

5217 


JMP 

NEWNP 

2015 

1233 


TAD 

NEW 

2016 

5600 


JMP 

I NEWLN 

2017 

7500 

NEWNP, 

SMA 


2020 

5227 


JMP 

NEWNOT 

2021 

7200 


CLA 


2022 

1233 


TAD 

NEW 

2023 

1774 


TAD 

INCR 

2024 

3233 


DCA 

NEW 


—0023 





/SAVE -OLD# 

/SET NEW s START 

/COPY * OF LINES 

/SET X10 TO POINT IN LNTBL 

/COMPARE OLD AGAINST T8L ENTRY 


/JUMP IF NO MATCH 
/NEW TO ACC 
/BYE 

/JUMP IF OLD«TBL (NOT IN TBL) 
/QLD>TBL (KEEP LOOKING) 

/ADO INCR TO NEW 
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2025 

2235 

ISZ 

NEtfCNT 

2026 

5211 

JMP 

NEWLP 

2027 

7200 

NEWNOT, CLA 


2030 

1234 

TAD 

old 

2031 

7041 

CIA 


2032 

5600 

JMP 

I NEWLN 

2033 

0000 

NEW, 0 


2034 

0000 

OLD, 0 


2035 

0000 

NEWCNT, 0 


2174 

0505 



2175 

2577 



2176 

0507 



2177 

0504 




22(30 

2400 

2600 


3400 


/BUMP COUNTER 

/CHECK AGAINST NEXT UNLESS END TBL 
/NOT IN TBL—RETURN OLD 


/BYE 

/NEW H DEVELOPED HERE 
/•OLD * STORED HERE 
/SEARCH LOOP CONTROL WORD 


DISK BUFFER 


PAGE 

/THIS PAGE IS THE INPUT 
0000 INBUF, 0 
PAGE 

/THIS PAGE IS THE OUTPUT DISK BUFFER 
0000 0UT8UF, 0 
PAGE 

/THIS PAGE (AND THE NEXT 3) WILL HOLD THE LNTBL 
0000 LNTBL, 0 
PAGE 
PAGE 
PAGE 

/THIS PAGE IS THE TTY AND UTILITY BUFFER 
0000 BUFFER, 0 
PAGE 

/THAT IS ALL, 
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